home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / inettool_tlb.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-10-16  |  5.3 KB  |  109 lines
  1. unit InetTool_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                  //
  5. // -------                                                                  //
  6. // The types declared in this file were generated from data read from a     //
  7. // Type Library. If this type library is explicitly or indirectly (via      //
  8. // another type library referring to this type library) re-imported, or the //
  9. // 'Refresh' command of the Type Library Editor activated while editing the //
  10. // Type Library, the contents of this file will be regenerated and all      //
  11. // manual modifications will be lost.                                       //
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11.1.63  $
  15. // File generated on 3/26/2000 6:57:26 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: H:\IMSI\TCWP60596\SDK\Samples\Delphi4\AALB_Filip1\Filip\InetTool\InetTool.tlb
  19. // IID\LCID: {D684AEE8-6D6A-44D4-BE16-A44D089B59E8}\0
  20. // Helpfile: 
  21. // HelpString: InetTool Library
  22. // Version:    1.0
  23. // ************************************************************************ //
  24.  
  25. interface
  26.  
  27. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  28.  
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:      //
  31. //   Type Libraries     : LIBID_xxxx                                    //
  32. //   CoClasses          : CLASS_xxxx                                    //
  33. //   DISPInterfaces     : DIID_xxxx                                     //
  34. //   Non-DISP interfaces: IID_xxxx                                      //
  35. // *********************************************************************//
  36. const
  37.   LIBID_InetTool: TGUID = '{D684AEE8-6D6A-44D4-BE16-A44D089B59E8}';
  38.   IID_ITCInetTool: TGUID = '{9A11A549-D34A-47C2-BC4F-0E75E1FDCE6B}';
  39.   CLASS_TCInetTool: TGUID = '{6A266CE0-1120-412C-9B35-5CA7D492C0B8}';
  40. type
  41.  
  42. // *********************************************************************//
  43. // Forward declaration of interfaces defined in Type Library            //
  44. // *********************************************************************//
  45.   ITCInetTool = interface;
  46.   ITCInetToolDisp = dispinterface;
  47.  
  48. // *********************************************************************//
  49. // Declaration of CoClasses defined in Type Library                     //
  50. // (NOTE: Here we map each CoClass to its Default Interface)            //
  51. // *********************************************************************//
  52.   TCInetTool = ITCInetTool;
  53.  
  54.  
  55. // *********************************************************************//
  56. // Interface: ITCInetTool
  57. // Flags:     (4416) Dual OleAutomation Dispatchable
  58. // GUID:      {9A11A549-D34A-47C2-BC4F-0E75E1FDCE6B}
  59. // *********************************************************************//
  60.   ITCInetTool = interface(IDispatch)
  61.     ['{9A11A549-D34A-47C2-BC4F-0E75E1FDCE6B}']
  62.     function Get_Description: WideString; stdcall;
  63.     function GetToolInfo(var CommandNames: OleVariant; var MenuCaptions: OleVariant; 
  64.                          var StatusPrompts: OleVariant; var Tooltips: OleVariant; 
  65.                          var Enabled: OleVariant; var WantsUpdate: OleVariant): Integer; stdcall;
  66.     function GetPicture(var LargeImage: WordBool; var MonoImage: WordBool): IPictureDisp; stdcall;
  67.     function UpdateToolStatus(var Tool: IDispatch; var Enabled: WordBool; var Checked: WordBool): WordBool; stdcall;
  68.     function Initialize(var Tool: IDispatch): WordBool; stdcall;
  69.     function Run(var Tool: IDispatch): WordBool; stdcall;
  70.   end;
  71.  
  72. // *********************************************************************//
  73. // DispIntf:  ITCInetToolDisp
  74. // Flags:     (4416) Dual OleAutomation Dispatchable
  75. // GUID:      {9A11A549-D34A-47C2-BC4F-0E75E1FDCE6B}
  76. // *********************************************************************//
  77.   ITCInetToolDisp = dispinterface
  78.     ['{9A11A549-D34A-47C2-BC4F-0E75E1FDCE6B}']
  79.     property Description: WideString readonly dispid 1;
  80.     function GetToolInfo(var CommandNames: OleVariant; var MenuCaptions: OleVariant; 
  81.                          var StatusPrompts: OleVariant; var Tooltips: OleVariant; 
  82.                          var Enabled: OleVariant; var WantsUpdate: OleVariant): Integer; dispid 2;
  83.     function GetPicture(var LargeImage: WordBool; var MonoImage: WordBool): IPictureDisp; dispid 3;
  84.     function UpdateToolStatus(var Tool: IDispatch; var Enabled: WordBool; var Checked: WordBool): WordBool; dispid 4;
  85.     function Initialize(var Tool: IDispatch): WordBool; dispid 5;
  86.     function Run(var Tool: IDispatch): WordBool; dispid 6;
  87.   end;
  88.  
  89.   CoTCInetTool = class
  90.     class function Create: ITCInetTool;
  91.     class function CreateRemote(const MachineName: string): ITCInetTool;
  92.   end;
  93.  
  94. implementation
  95.  
  96. uses ComObj;
  97.  
  98. class function CoTCInetTool.Create: ITCInetTool;
  99. begin
  100.   Result := CreateComObject(CLASS_TCInetTool) as ITCInetTool;
  101. end;
  102.  
  103. class function CoTCInetTool.CreateRemote(const MachineName: string): ITCInetTool;
  104. begin
  105.   Result := CreateRemoteComObject(MachineName, CLASS_TCInetTool) as ITCInetTool;
  106. end;
  107.  
  108. end.
  109.